function FilterNatureAuthors(n2,ValueTime,ValueFilter)

ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/Results/';
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
VecArticleType={'Academic Dissertation' 'Adaptive Clinical Trial' 'Clinical Trial' 'Comparative Study' 'Controlled Clinical Trial' 'Equivalence Trial' 'Evaluation Study' 'Journal Article' 'Meta-Analysis' 'Multicenter Study' 'Observational Study' 'Pragmatic Clinical Trial' 'Randomized Controlled Trial' 'Review' 'Statistics' 'Technical Report' 'Systematic Review' 'Twin Study' 'Validation Study'};
VecArticleType2={'Review' 'Systematic Review'};
VecA=192:1:198;
VecA=[VecA 65];
Veca=224:1:230;
Veca=[Veca 97];
VecC=[199 67];
Vecc=[231 99];
VecE=200:203;
VecE=[VecE 69];
Vece=232:1:235;
Vece=[Vece 101];
VecI=204:207;
VecI=[VecI 73];
Veci=236:1:239;
Veci=[Veci 105];
Vecn=[241 110];
VecO=210:214;
VecO=[VecO 216 79];
Veco=242:1:246;
Veco=[Veco 248 111];
VecU=217:1:220;
VecU=[VecU 85];
Vecu=249:1:252;
Vecu=[Vecu 117];
VecY=[221 89];
Vecy=[253 121];
Vecs=[223 115];
VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];
ValueClock=clock;
disp(['Start of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);
if ValueTime>=1
    if ValueFilter==0
        ValueFile=['FileAnalysis' num2str(ValueTime) 'Journal' num2str(n2) '.mat'];
    else
        ValueFile=['FileAnalysis' num2str(ValueTime) 'Filtered' num2str(ValueFilter) 'Journal' num2str(n2) '.mat'];
    end
else
    if ValueFilter==0
        ValueFile=['FileAnalysisJournal' num2str(n2) '.mat'];
    else
        ValueFile=['FileAnalysisFiltered' num2str(ValueFilter) 'Journal' num2str(n2) '.mat'];
    end
end
    
ValueFileTemp=dir([ValueFolderTemp ValueFile]);
VecResultsArticle1=zeros(161,8);
VecResultsArticle2=zeros(161,8);
if size(ValueFileTemp,1)==0
    n1Temp2=0;
    try
        if ValueTime>=1
            if ValueFilter==0
                ValueFile=['FileAnalysis' num2str(ValueTime) 'JournalTemp' num2str(n2) '.mat'];
            else
                ValueFile=['FileAnalysis' num2str(ValueTime) 'Filtered' num2str(ValueFilter) 'JournalTemp' num2str(n2) '.mat'];
            end
        else
            if ValueFilter==0
                ValueFile=['FileAnalysisJournalTemp' num2str(n2) '.mat'];
            else
                ValueFile=['FileAnalysisFiltered' num2str(ValueFilter) 'JournalTemp' num2str(n2) '.mat'];
            end
        end
        load([ValueFolderTemp ValueFile]);
        n1Temp2=n1;
    end
    n1Temp2=n1Temp2+1;
    for n1=n1Temp2:1062
        n1
        eval(sprintf('load([ValueFolder ''ResultsFile%d.mat'']);',n1));
        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n2));
        for n3=1:size(VecValueTemp,1)
            ValueTemp=VecValueTemp{n3,1};
            if size(ValueTemp,2)>1
                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors]=ExtractAuthor(ValueTemp,0,1);
                ValueArticleType=ComputeArticleType(VecValueTemp{n3,9},VecArticleType,VecValueTemp{n3,10},VecValueTemp{n3,11});
                if ValueArticleType>0
                    if nAuthors>=1
                        ValueArticleType3=1;
                    else
                        ValueArticleType3=2;
                    end
                else
                    ValueArticleType3=0;
                end
                ValueDate=VecValueTemp{n3,5};
                [ValueYear,ValueMonth,ValueDay]=ExtractDate(ValueDate);
                if size(ValueYear,2)>0
                    ValueDateArticleTemp=[{ValueYear} {ValueMonth} {ValueDay}];
                    ValueYearTemp=str2num(ValueYear);
                    if ValueArticleType3==1
                        [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors2]=ExtractAuthor(ValueTemp,1,2);
                        [ValueResult1Authors1,ValueResult2Authors1]=checkAuthorsNature([ValueLast ' ' ValueFirst],n2,ValueDateArticleTemp,VecSpecialCharacters,ValueTime,ValueFilter);
                        [ValueFirst2,ValueLast2,ValueAffiliation,ValueORCID,nAuthors2]=ExtractAuthor(ValueTemp,nAuthors,2);
                        [ValueResult1Authors2,ValueResult2Authors2]=checkAuthorsNature([ValueLast2 ' ' ValueFirst2],n2,ValueDateArticleTemp,VecSpecialCharacters,ValueTime,ValueFilter);
                        if ValueResult1Authors1(1,13)==0&&ValueResult1Authors2(1,13)==0
                            TestTemp4=0;
                            VecValueArticleTemp=[];
                            for n4=2:nAuthors-1
                                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors2]=ExtractAuthor(ValueTemp,n4,2);
                                [ValueResult1Authors3,ValueResult2Authors3]=checkAuthorsNature([ValueLast ' ' ValueFirst],n2,ValueDateArticleTemp,VecSpecialCharacters,ValueTime,ValueFilter);
                                if ValueResult1Authors3(1,13)>=1
                                    VecValueArticleTemp=[VecValueArticleTemp;ValueResult1Authors3(1,13)];
                                    TestTemp4=1;
                                end
                            end
                            if TestTemp4==0
                                VecResultsArticle1(ValueYearTemp-1859,1)=VecResultsArticle1(ValueYearTemp-1859,1)+1;
                            else
                                VecResultsArticle1(ValueYearTemp-1859,2)=VecResultsArticle1(ValueYearTemp-1859,2)+1;
                            end
                            if size(VecValueArticleTemp,1)>=1
                                VecResultsArticle1(ValueYearTemp-1859,5)=VecResultsArticle1(ValueYearTemp-1859,5)+mean(VecValueArticleTemp);
                                VecResultsArticle1(ValueYearTemp-1859,6)=VecResultsArticle1(ValueYearTemp-1859,6)+min(VecValueArticleTemp);
                                VecResultsArticle1(ValueYearTemp-1859,7)=VecResultsArticle1(ValueYearTemp-1859,7)+max(VecValueArticleTemp);
                            end
                        end
                        if ValueResult2Authors1(1,13)==0&&ValueResult2Authors2(1,13)==0
                            TestTemp4=0;
                            VecValueArticleTemp=[];
                            for n4=2:nAuthors-1
                                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors2]=ExtractAuthor(ValueTemp,n4,2);
                                [ValueResult1Authors3,ValueResult2Authors3]=checkAuthorsNature([ValueLast ' ' ValueFirst],n2,ValueDateArticleTemp,VecSpecialCharacters,ValueTime,ValueFilter);
                                if ValueResult2Authors3(1,13)>=1
                                    VecValueArticleTemp=[VecValueArticleTemp;ValueResult2Authors3(1,13)];
                                    TestTemp4=1;
                                end
                            end
                            if TestTemp4==0
                                VecResultsArticle2(ValueYearTemp-1859,1)=VecResultsArticle2(ValueYearTemp-1859,1)+1;
                            else
                                VecResultsArticle2(ValueYearTemp-1859,2)=VecResultsArticle2(ValueYearTemp-1859,2)+1;
                            end
                            if size(VecValueArticleTemp,1)>=1
                                VecResultsArticle2(ValueYearTemp-1859,5)=VecResultsArticle2(ValueYearTemp-1859,5)+mean(VecValueArticleTemp);
                                VecResultsArticle2(ValueYearTemp-1859,6)=VecResultsArticle2(ValueYearTemp-1859,6)+min(VecValueArticleTemp);
                                VecResultsArticle2(ValueYearTemp-1859,7)=VecResultsArticle2(ValueYearTemp-1859,7)+max(VecValueArticleTemp);
                            end
                        end
                        VecResultsArticle1(ValueYearTemp-1859,3)=VecResultsArticle1(ValueYearTemp-1859,3)+1;
                        VecResultsArticle2(ValueYearTemp-1859,3)=VecResultsArticle2(ValueYearTemp-1859,3)+1;
                    end
                    VecResultsArticle1(ValueYearTemp-1859,4)=VecResultsArticle1(ValueYearTemp-1859,4)+1;
                    VecResultsArticle2(ValueYearTemp-1859,4)=VecResultsArticle2(ValueYearTemp-1859,4)+1;
                end
            end
        end
        VecResultsArticle1(161,8)=VecResultsArticle1(161,8)+size(VecValueTemp,1);
        VecResultsArticle2(161,8)=VecResultsArticle2(161,8)+size(VecValueTemp,1);
%         if mod(n1,3)==0
            if ValueTime>=1
                if ValueFilter==0
                    ValueFile=['FileAnalysis' num2str(ValueTime) 'JournalTemp' num2str(n2) '.mat'];
                else
                    ValueFile=['FileAnalysis' num2str(ValueTime) 'Filtered' num2str(ValueFilter) 'JournalTemp' num2str(n2) '.mat'];
                end
            else
                if ValueFilter==0
                    ValueFile=['FileAnalysisJournalTemp' num2str(n2) '.mat'];
                else
                    ValueFile=['FileAnalysisFiltered' num2str(ValueFilter) 'JournalTemp' num2str(n2) '.mat'];
                end
            end
            save([ValueFolderTemp ValueFile]);
%         end
    end
    if ValueTime>=1
        if ValueFilter==0
            ValueFile=['FileAnalysis' num2str(ValueTime) 'Journal' num2str(n2) '.mat'];
        else
            ValueFile=['FileAnalysis' num2str(ValueTime) 'Filtered' num2str(ValueFilter) 'Journal' num2str(n2) '.mat'];
        end
    else
        if ValueFilter==0
            ValueFile=['FileAnalysisJournal' num2str(n2) '.mat'];
        else
            ValueFile=['FileAnalysisFiltered' num2str(ValueFilter) 'Journal' num2str(n2) '.mat'];
        end
    end

    save([ValueFolderTemp ValueFile],'VecResultsArticle1','VecResultsArticle2');
end
ValueClock=clock;
disp(['End of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);